home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_2003-11_2003_CSW_Side_B.d64 / - 2 planeten - (.txt) next >
Commodore BASIC  |  2023-02-26  |  1KB  |  39 lines
  1. 0 rem save"@:-  2 planeten  -",12
  2. 1 lw=peek(186)
  3. 2 ifz=0thenz=1:goto6
  4. 3 ifz=1thenz=2:gosub10:sys49154
  5. 4 ifz=2thenz=3:goto8
  6. 5 ifz=3thenz=4:goto9
  7. 6 fora=49154to49317:readi:pokea,i:next
  8. 7 load"- 01*",lw,1:end
  9. 8 load"- 02*",lw,1:end
  10. 9 sys49152:goto 40
  11. 10 c$="[215]elle: [197]rdball":gosub1000
  12. 11 c$="auf der":gosub1000
  13. 12 c$="[215][201][204][204][207][215] 2003":gosub1000
  14. 13 c$="(28. - 30. [206]ovember)":gosub1000
  15. 14 c$="sendet":gosub1000
  16. 15 c$="[218][215][197][201] [208][204][193][206][197][212][197][206]":gosub1000
  17. 17 c$="[201][206][212][197][210][206][197][212][218]: www.welle-e.de":gosub1000
  18. 30 print"[144][147]";:pokes,21:pokev,151
  19. 31 print"[154]":return
  20. 40 goto 40
  21. 1000 m=((40-len(c$))/2):f=53281:d=53280:v=56576:s=53272:r=648:w=53266
  22. 1001 b$="[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][129]  [150]  [158]     [158]  [150]  [129]  [144] ":pokef,0:poked,0:print"[144][147]"
  23. 1002 a$="  [159]  [153]  [158]         [158]  [153]  [159]   [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][144] "
  24. 1003 poker,160:print"[147][144]"spc(m)c$:pokes,134:poker,4:pokev,149
  25. 1004 print"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
  26. 1005 fort=1to60:printa$;:forza=0to10:next:next:print:return
  27. 1300 :
  28. 1301 data173,17,208,41,239,141,17,208,162,127,160,64,32,156,192,162
  29. 1302 data4,160,0,32,161,192,162,131,160,39,32,114,192,162,131,160
  30. 1303 data40,32,156,192,162,216,160,0,32,161,192,162,135,160,15,32
  31. 1304 data114,192,173,16,135,141,33,208,173,17,208,9,34,141,17,208
  32. 1305 data173,22,208,41,223,9,16,141,22,208,173,24,208,9,8,141
  33. 1306 data24,208,162,96,160,0,32,156,192,162,32,160,0,32,161,192
  34. 1307 data162,127,160,63,32,114,192,173,17,208,9,16,141,17,208,96
  35. 1308 data142,1,192,140,0,192,160,0,177,251,145,253,165,252,205,1
  36. 1309 data192,208,8,165,251,205,0,192,208,1,96,230,251,208,2,230
  37. 1310 data252,230,253,208,227,230,254,76,122,192,134,252,132,251,96,134
  38. 1311 data254,132,253,96
  39.